10 POKE56,56:POKE51,0:CLR:POKE53272,31
11 POKE53280,0:POKE53281,0:W$=""
12 AD=49152:DV=PEEK(186):IFDV<8THENDV=8
13 N=20:DIMQ$(N,14),A$(N),CK(N),CK$(N)
14 GOSUB7000
19 GOSUB1000:GOSUB1100:GOSUB1300
20 FORI=1TON:CK$(I)=" ":NEXT
21 FORI=1TON:CK(I)=0:NEXT
23 SYSAD+18,10,7,20,4,1,1
24 SYSAD+33
25 POKE214,7:PRINT:PRINTTAB(12)"[212]HE [212]OWER [212]EST
26 [153][163]12)"(null)EE ATNNSWERS "
27 [153][163]12)"RIGHT$NSTRUCTIONS"
28 [153][163]12)"(null)(null)ATNSTR$(null)(null)ATN(null)    "
30 [158]AD[170]12,11,8,30,4,1,3
35 K[178][194](828)
36 H$[178]"TOWER INSTR":[139]K[178]2[167]H$[178]"TOWER ANSWR"
37 [145]K[141]100,8000,8000,9000
40 [137]20
45 :
100 SC[178]0:X[178]1
105 [158]AD[170]3,1:[141]1000
106 [141]1200:[141]1400
108 [158]AD[170]15,2,4,38,19,160,15
109 [151]214,3:[153]
110 [158]AD[170]33:[129]I[178]1[164]14:[153]"LIST"Q$(X,I):[130]
115 [151]214,18:[153]:[153]"LISTATN(null)(null)(null)VAL(null): ";
120 [161]W$:[139]W$[178]""[167]120
125 [143]PRINT"LIST"W$
130 [139]W$[178]"M" [167][158]AD[170]6,1:[142]:[143] MENU
140 [139]W$[178]"P"[167][158]AD[170]27,1,4,38,20,7:[143] PRINT
150 [139]W$[178]"ON"[167]X[178]X[171]1:[139]X[179]1[167]X[178]1
155 [139]W$[178]""[167]173
160 [139]W$[178]"ON" [176]W$[178]""[167]106
161 [139]W$[179]"A"[176]W$[177]"D"[167]115
170 [139]W$[179][177]A$(X)[167]175
171 CK$(X)[178]"SQR":[139]CK(X)[178]0[167]SC[178]SC[170]10:CK(X)[178]1:[141]1200
172 [141]3000
173 X[178]X[170]1:[139]X[177]N [167] [141]2000:[142]
174 [137]106
175 CK(X)[178]2:[141]4000
180 [137]109
1000 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
1005 [153]"(null)CONT                                      WAIT(null)";
1010 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
1015 [129]I[178]1[164]18:[153]"(null)LIST                                      WAIT(null)";:[130]
1020 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<";
1025 [153]"(null)PRINT                                      WAIT(null)";
1030 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[158]AD[170]33
1035 [142]
1040 :
1100 [151]214,0:[153]:[153][163]10)"CONT(null) (null) (null) VAL (null)   (null) VAL (null) (null)":[142]
1200 [151]214,0:[153]:[153]"CONT(null)(null)(null)VAL(null) (null)VAL(null)(null)   (null)(null)VAL(null)(null)RIGHT$(null)(null):"[170][201](" "[170][196](X),2);
1205 [153]CK$(X)[170]"  (null)LEN(null)(null)VAL:"[170][201]("   "[170][196](SC),3)
1210 [142]
1300 [151]214,21:[153]:[153]"PRINT    (null)SE LEN(null)(null)(null) KEYS/(null)VAL(null)(null)(null)(null) TO (null)ELECT":[142]
1400 [151]214,21:[153]:[153]"PRINT  (null)-(null)ENU  \-(null)EXT  ^-(null)REVIOUS  (null)-(null)RINT"
1405 [142]
2000 [158]AD[170]3,0
2005 [158]AD[170]18,4,7,30,7,4,1
2010 [158]AD[170]21,"(null)VAL(null)(null) (null)(null)VAL(null)!",8,4,1
2011 [158]AD[170]24,"(null)LEN(null)(null)VAL:"[170][196](SC),15,10,4,1
2012 RK$[178]"(null)(null)ATN(null)CLOSE(null)VALATN(null)"
2013 [139]SC[177]40[167]RK$[178] "VAL(null)VAL(null)ATN(null)(null)(null) (null)(null)VAL(null)ATN(null)(null)(null)"
2014 [139]SC[177]80[167]RK$[178] "(null)ATN(null)(null)ATN (null)ATN(null)(null)(null)VAL(null)"
2015 [139]SC[177]120[167]RK$[178]"(ASC(null)(null)) ASC(null)RIGHT$VAL(null)STR$ (null)ASC (null)(null)VALVAL(null)"
2016 [139]SC[177]160[167]RK$[178]"(ASC(null)ASC) ASC(null)RIGHT$VAL(null)STR$ (null)ASC ASCVAL(null)STR$VAL(null)"
2020 [158]AD[170]24,"(null)ATN(null)(null): "[170]RK$,6,12,4,1
2021 [158]AD[170]21,"(null)RESS (null)VAL(null)(null)(null)(null)",14,4,1
2022 [141]51300
2023 [161]K$:[139]K$[179][177][199](13)[167]2023
2024 [158]AD[170]6,1:[142]
2025 :
3000 [158]AD[170]3,0
3005 [158]AD[170]18,10,10,20,3,4,1
3010 [158]AD[170]21,"  (null)RIGHT$CHR$LEFT$(null)!",12,4,1
3015 [141]50760
3020 [158]AD[170]6,0:[142]
3025 :
4000 [158]AD[170]3,0
4005 [158]AD[170]18,10,10,20,3,10,1
4010 [158]AD[170]21,"  (null)(null)(null)(null)CHR$!",12,10,1
4015 [141]52420
4020 [158]AD[170]6,0:[142]
4025 :
7000 [129]I[178]1[164]N
7005 [129]J[178]1[164]14
7010 [135] Q$(I,J)
7015 [130]
7020 [135]A$(I):[130]
7025 [142]
7030 :
8000 [158]49152[170]3,1:[153]"LOAD"[163]13)"DEF(null)LEFT$VAL (null)(null)(null)VAL(null) (null)VAL(null)(null)"
8005 [158]49152[170]18,0,1,38,21,1,0
8015 [158]49152[170]33
8020 [158]49152[170]21,"(null)RESS (null)VAL(null)(null)(null)(null)     _ TO VALXIT",24,13,0
8025 [159]2,DV,2,H$[170]",P,R":[158]49152[170]30,14
8030 [151]198,0
8035 [158]49152[170]21,"       (null)RESS (null)VAL(null)(null)(null)(null)       ",24,10,0
8040 [161]K$:[139]K$[179][177][199](13)[167]8040
8045 [151] 198,0
8050 [160]2:[158]49152[170]6,1:[142]
8055 :
9000 [158]AD[170]3,1
9005 [151]214,21:[153]:[153]"PRINT     (null)UIT? ATNRE YOU SURE? (Y/N)    "
9010 [161]K$:[139]K$[178]""[167]9010
9015 [139]K$[179][177]"Y"[167][158]AD[170]6,1:[142]
9020 [137]40000
10000 [159]15,8,15,"S0:TOWER TEST":[160]15:[148]"0:TOWER TEST",8:[128]
11001 [131] "1] ASCOUR PEOPLE GO TO A BASEBALL"
11002 [131] "GAME. (null)HEY PURCHASE TICKETS FOR FOUR"
11003 [131] "SEATS IN A ROW.  LENHRIS AGREES TO SIT"
11004 [131] "BESIDE (null)OM, BUT NOT NEXT TO PEEKILL."
11005 [131] "RIGHT$F PEEKILL REFUSES TO SIT BESIDE MID$OE,"
11006 [131] "IN WHAT ORDER (LEFT TO RIGHT) ARE"
11007 [131] "THE FOUR SITTING?"
11008 [131] " "
11009 [131] "ATN: LENHRIS, MID$OE, (null)OM, PEEKILL"
11010 [131] "PEEK: PEEKILL, LENHRIS, MID$OE, (null)OM"
11011 [131] "LEN: (null)OM, MID$OE, LENHRIS, PEEKILL"
11012 [131] "STR$: MID$OE, LENHRIS, (null)OM, PEEKILL"
11013 [131] " "
11014 [131] " "
11015 [131] "D"
11016 :
12001 [131] "2] RIGHT$F A DOG HAS A VALUE OF 1, AND A"
12002 [131] "BULLDOG HAS A VALUE OF 2, WHAT IS"
12003 [131] "THE VALUE OF A COLLIE?"
12004 [131] " "
12005 [131] "ATN: 2"
12006 [131] "PEEK: 3"
12007 [131] "LEN: 4"
12008 [131] "STR$: 1"
12009 [131] " "
12010 [131] " "
12011 [131] " "
12012 [131] " "
12013 [131] " "
12014 [131] " "
12015 [131] "B"
12016 :
13001 [131] "3] (null)HAT IS THE NEXT CHARACTER IN THE"
13002 [131] "   FOLLOWING SERIES?"
13003 [131] " "
13004 [131] "   * [ * ( * $ * ] * ?"
13005 [131] " "
13006 [131] " "
13007 [131] "ATN: $"
13008 [131] "PEEK: ("
13009 [131] "LEN: *"
13010 [131] "STR$: )"
13011 [131] " "
13012 [131] " "
13013 [131] " "
13014 [131] " "
13015 [131] "D"
13016 :
14001 [131] "4] ATN MAN DECIDED TO GO SHOPPING IN A"
14002 [131] "STORE WHERE THERE ARE NO PRICE TAGS,"
14003 [131] "BUT THE STORE OWNER HAS A 'FORMULA'"
14004 [131] "FOR CALCULATING THE PRICE OF EACH "
14005 [131] "ITEM. RIGHT$F A HAT COSTS $6, A SHIRT $10,"
14006 [131] "AND A TIE $6, HOW MUCH WOULD A BELT"
14007 [131] "COST?"
14008 [131] " "
14009 [131] " "
14010 [131] "ATN: $6"
14011 [131] "PEEK: $8"
14012 [131] "LEN: $10"
14013 [131] "STR$: $12"
14014 [131] " "
14015 [131] "B"
14016 :
15001 [131] "5] (null)HAT IS THE MISSING NUMBER IN THE"
15002 [131] "   FOLLOWING SEQUENCE?"
15003 [131] " "
15004 [131] "   2,5,11,?,47,95"
15005 [131] " "
15006 [131] " "
15007 [131] " "
15008 [131] " "
15009 [131] " "
15010 [131] "ATN: 23"
15011 [131] "PEEK: 31"
15012 [131] "LEN: 19"
15013 [131] "STR$: 25"
15014 [131] " "
15015 [131] "A"
15016 :
16001 [131] "6] ATN IS TO VAL AS PEEK IS TO ?"
16002 [131] " "
16003 [131] " "
16004 [131] " "
16005 [131] " "
16006 [131] " "
16007 [131] " "
16008 [131] " "
16009 [131] " "
16010 [131] "ATN: CHR$"
16011 [131] "PEEK: LEN"
16012 [131] "LEN: STR$"
16013 [131] "STR$: (null)"
16014 [131] " "
16015 [131] "B"
16016 :
17001 [131] "7] RIGHT$F VALD HAS 4 BLACK SOCKS AND 8"
17002 [131] "WHITE SOCKS IN HIS DRAWER, HOW MANY"
17003 [131] "SOCKS DOES HE NEED TO PULL OUT TO"
17004 [131] "ENSURE THAT HE HAS A PAIR OF WHITE"
17005 [131] "SOCKS (ASSUMING THAT VALD IS IN THE"
17006 [131] "DARK)?"
17007 [131] " "
17008 [131] " "
17009 [131] " "
17010 [131] "ATN: 2"
17011 [131] "PEEK: 4"
17012 [131] "LEN: 6"
17013 [131] "STR$: 8"
17014 [131] " "
17015 [131] "C"
17016 :
18001 [131] "8] (null)HICH NUMBERS MOST REASONABLY"
18002 [131] "   COME NEXT?"
18003 [131] " "
18004 [131] "   2,8,3,7,5,6,8,5,?,?
18005 DATA " "
18006 DATA " "
18007 DATA " "
18008 DATA " "
18009 DATA " "
18010 DATA "[193]: 8,6"
18011 DATA "[194]: 11,4"
18012 DATA "[195]: 12,4"
18013 DATA "[196]: 12,6"
18014 DATA " "
18015 DATA "C"
18016 :
19001 DATA "9] [201]F YOU START TWO CLOCKS AT THE"
19002 DATA "SAME TIME, AND ONE IS ONE MINUTE TOO"
19003 DATA "FAST PER HOUR WHILE THE OTHER IS"
19004 DATA "TWO MINUTES TOO SLOW PER HOUR, HOW"
19005 DATA "MANY HOURS WILL HAVE ELAPSED WHEN"
19006 DATA "ONE IS AHEAD OF THE OTHER BY ONE"
19007 DATA "HOUR?"
19008 DATA " "
19009 DATA " "
19010 DATA "[193]: 10 HOURS"
19011 DATA "[194]: 60 HOURS"
19012 DATA "[195]: 20 HOURS"
19013 DATA "[196]: 120 HOURS"
19014 DATA " "
19015 DATA "C"
19016 :
20001 DATA "10] [193]LL WINKLES ARE FRANCHIES."
20002 DATA "    [193]LL FRANCHIES ARE LIGHT BLUE."
20003 DATA "    [211]OME FRANCHIES ARE HORNSWOGGLES."
20004 DATA " "
20005 DATA "    [212]HEREFORE: "
20006 DATA " "
20007 DATA " "
20008 DATA " "
20009 DATA " "
20010 DATA "[193]: [193]LL WINKLES ARE LIGHT BLUE."
20011 DATA "[194]: [193]LL HORNSWOGGLES ARE WINKLES."
20012 DATA "[195]: [206]EITHER"
20013 DATA "[196]: [194]OTH [193] AND [194] ARE TRUE."
20014 DATA " "
20015 DATA "A"
20016 :
21001 DATA "11] [212]HE BEST DEFINITION OF"
21002 DATA "    [195][201][210][195][213][205][204][207][195][213][212][201][207][206] IS ?"
21003 DATA " "
21004 DATA " "
21005 DATA " "
21006 DATA " "
21007 DATA " "
21008 DATA " "
21009 DATA " "
21010 DATA "[193]: [197]LECTRIFICATION"
21011 DATA "[194]: [210]OUNDABOUT"
21012 DATA "[195]: [193]N EASY CATCH"
21013 DATA "[196]: [208]REVENTION"
21014 DATA " "
21015 DATA "B"
21016 :
22001 DATA "12] [201]F TODAY IS [212]UESDAY, WHAT IS THE"
22002 DATA "    DAY AFTER THE DAY BEFORE THE"
22003 DATA "    DAY BEFORE TOMORROW?"
22004 DATA " "
22005 DATA " "
22006 DATA " "
22007 DATA " "
22008 DATA " "
22009 DATA " "
22010 DATA "[193]: [211]UNDAY"
22011 DATA "[194]: [205]ONDAY"
22012 DATA "[195]: [212]UESDAY"
22013 DATA "[196]: [215]EDNESDAY"
22014 DATA " "
22015 DATA "C"
22016 :
23001 DATA "13] [215]HAT COMES NEXT IN THE FOLLOWING"
23002 DATA "    SEQUENCE?"
23003 DATA " "
23004 DATA "    1,2,6,12,36,?"
23005 DATA " "
23006 DATA " "
23007 DATA " "
23008 DATA " "
23009 DATA " "
23010 DATA "[193]: 48"
23011 DATA "[194]: 72"
23012 DATA "[195]: 108"
23013 DATA "[196]: 96"
23014 DATA " "
23015 DATA "B"
23016 :
24001 DATA "14] [211]UE CAN TYPE 50 CHARACTERS IN 10"
24002 DATA "SECONDS.  [210]OBERTA TYPES ONLY 40 IN"
24003 DATA "THE SAME AMOUNT OF TIME.  [201]F THEY"
24004 DATA "WORK TOGETHER, HOW MANY SECONDS DOES"
24005 DATA "IT TAKE THEM TO TYPE 360 CHARACTERS?"
24006 DATA " "
24007 DATA " "
24008 DATA " "
24009 DATA " "
24010 DATA "[193]: 50"
24011 DATA "[194]: 90"
24012 DATA "[195]: 40"
24013 DATA "[196]: 36"
24014 DATA " "
24015 DATA "C"
24016 :
25001 DATA "15] [208]ICTURE A WOODEN CUBE WHICH"
25002 DATA "MEASURES THREE INCHES ON EACH SIDE."
25003 DATA "[201]F IT WERE DIPPED IN BLACK PAINT AND"
25004 DATA "THEN CUT INTO ONE-INCH CUBELETS,"
25005 DATA "HOW MANY CUBELETS WOULD HAVE PAINT "
25006 DATA "ON EXACTLY TWO SIDES?"
25007 DATA " "
25008 DATA " "
25009 DATA " "
25010 DATA "[193]: 12"
25011 DATA "[194]: 16"
25012 DATA "[195]: 18"
25013 DATA "[196]: 24"
25014 DATA " "
25015 DATA "A"
25016 :
26001 DATA "16] [212][210][201][205][207][206][212][200][204][217] MEANS"
26002 DATA " "
26003 DATA " "
26004 DATA " "
26005 DATA " "
26006 DATA " "
26007 DATA " "
26008 DATA " "
26009 DATA " "
26010 DATA "[193]: 3 TIMES A MONTH"
26011 DATA "[194]: [197]VERY THREE MONTHS"
26012 DATA "[195]: 3 TIMES A YEAR"
26013 DATA "[196]: [206]ONE OF THE ABOVE"
26014 DATA " "
26015 DATA "B"
26016 :
27001 DATA "17] [193] CERTAIN RULE IS FOLLOWED IN"
27002 DATA "THE FIGURE BELOW. [198]IGURE IT OUT AND"
27003 DATA "FILL IN THE QUESTION MARK."
27004 DATA " "
27005 DATA "   28 4 7"
27006 DATA "    7 1 7"
27007 DATA "    ? 4 1"
27008 DATA " "
27009 DATA " "
27010 DATA "[193]: 21"
27011 DATA "[194]: 4"
27012 DATA "[195]: 5"
27013 DATA "[196]: 6"
27014 DATA " "
27015 DATA "B"
27016 :
28001 DATA "18] [212]HE NUMBER OF SHIRTS [194]OB OWNS IS"
28002 DATA "THE SAME AS THE NUMBER [198]RED OWNS"
28003 DATA "DIVIDED BY THE NUMBER OWNED BY [202]OHN."
28004 DATA "[198]RED HAS 42 SHIRTS AND WOULD HAVE"
28005 DATA "EIGHT TIMES AS MANY AS [202]OHN IF [198]RED"
28006 DATA "OWNED 14 MORE.  [200]OW MANY SHIRTS DOES"
28007 DATA "[194]OB OWN?"
28008 DATA " "
28009 DATA " "
28010 DATA "[193]: 12"
28011 DATA "[194]: 10"
28012 DATA "[195]: 8"
28013 DATA "[196]: 6"
28014 DATA " "
28015 DATA "D"
28016 :
29001 DATA "19] [193]BE, [194]OB AND [195]HUCK ARE AN
29002 [131] "EDITOR, REPORTER AND PRINTER WITH"
29003 [131] "THE LOCAL PAPER. (null)HE PRINTER, WHO IS"
29004 [131] "AN ONLY CHILD, EARNS THE LEAST."
29005 [131] "LENHUCK, WHO IS MARRIED TO ATNBE'S"
29006 [131] "SISTER, EARNS MORE THAN THE"
29007 [131] "REPORTER.  (null)HAT IS EACH MAN'S JOB?"
29008 [131] " "
29009 [131] " "
29010 [131] "ATN: ATN-VALDITOR   PEEK-(null)RINTER  LEN-(null)EPORTER"
29011 [131] "PEEK: ATN-VALDITOR   PEEK-(null)EPORTER LEN-(null)RINTER"
29012 [131] "LEN: ATN-(null)EPORTER PEEK-(null)RINTER  LEN-VALDITOR"
29013 [131] "STR$: ATN-(null)RINTER  PEEK-(null)EPORTER LEN-VALDITOR"
29014 [131] " "
29015 [131] "C"
29016 :
30001 [131] "20] (null)HEN THE AGES OF TWO SISTERS,"
30002 [131] "(null)ARAH AND (null)USAN, ARE COMBINED, THE"
30003 [131] "SUM IS 44. (null)ARAH IS EXACTLY TWICE AS"
30004 [131] "OLD AS (null)USAN WAS WHEN (null)ARAH WAS HALF"
30005 [131] "AS OLD AS (null)USAN WILL BE WHEN (null)USAN"
30006 [131] "IS THREE TIMES AS OLD AS (null)ARAH WAS"
30007 [131] "WHEN (null)ARAH WAS THREE TIMES AS OLD AS"
30008 [131] "(null)USAN.  LEFT$OW OLD IS (null)ARAH?"
30009 [131] " "
30010 [131] "ATN: 31 1/4"
30011 [131] "PEEK: 34 2/3"
30012 [131] "LEN: 27 1/2"
30013 [131] "STR$: 24 1/2"
30014 [131] " "
30015 [131] "C"
30016 :
40000 A$[178]"HELLO CONNECT":[129]I[178]8[164]9:[160]2:[159]2,I,2:[160]2:[139]ST[167]40020
40010 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40030
40020 [130]:[153]"LOAD":[151]2048,0:[151]44,8:[151]53272,23:[151]186,8:[128]
40030 [151]646,[194](53281):[153]"LOADLOAD"[199](34)A$[199](34)","I
40040 [153]"RUN":[151]44,8:[151]2048,0:[151]631,13:[151]632,13:[151]198,2:[128]
50750 [143] BELL
50760 S[178]54272:[129]I[178]S[164]S[170]24:[151]I,0:[130]
50770 [151]S[170]5,25:[151]S[170]6, 9
50780 [151]S[170]2,156:[151]S[170]3,13
50790 [151]S[170]24,15
50800 [151]S[170]1,68:[151]S,80
50810 [151]S[170]15, 1:[151]S[170]4,19
50820 [129]T[178]1[164]900:[130]
50830 [151]SW[170]4,18
50840 [142]
50845 :
51290 [143] CLOCK
51300 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]
51305 [129]R[178]1[164]2
51310 [151]S[170]5,15:[151]S[170]6,252
51320 [151]S[170]3,7:[151]S[170]2,32
51330 [151]S[170]24,31
51340 [151]S[170]1,125:[151]S,0
51350 [151]S[170]15,20:[151]S[170]4,21
51360 [129]T[178]1[164]100:[130]
51370 [151]S[170]4,20
51380 [129]T[178]1[164]1000:[130]T:[130]R:[142]
51385 :
52410 [143] BUZZER
52420 S[178]54272:[129]I[178]S[164]S[170]24:[151]I,0:[130]
52430 [151]S[170]5,41:[151]S[170]6,204
52440 [151]S[170]24,143
52450 [151]S[170]1,79:[151]S[170]15,12
52460 [151]S[170]4,19:[151]S[170]14,117
52470 [129]T[178]1[164]750:[130]
52480 [151]S[170]4,18:[151]S[170]24,0
52490 [142]
52495 :